<script>on mouseUp-- put the short name of me into theCardvisual effect shrink to topgo to card 1end mouseUp</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>364</left>
<top>325</top>
<right>432</right>
<bottom>339</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Other-1</name>
<script>on mouseUp-- put the short name of me into theCardvisual effect shrink to topgo to card 6end mouseUp</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>436</left>
<top>325</top>
<right>507</right>
<bottom>339</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Other-2</name>
<script>on mouseUp-- put the short name of me into theCardvisual effect shrink to topgo to card 7end mouseUp</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>80</left>
<top>325</top>
<right>148</right>
<bottom>339</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>DXCC SSB</name>
<script>on mouseUp-- put the short name of me into theCardvisual effect shrink to topgo to card 2end mouseUp</script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>151</left>
<top>325</top>
<right>219</right>
<bottom>339</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>DXCC CW</name>
<script>on mouseUp-- put the short name of me into theCardvisual effect shrink to topgo to card 3end mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>222</left>
<top>325</top>
<right>290</right>
<bottom>339</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>WAS SSB</name>
<script>on mouseUp-- put the short name of me into theCardvisual effect shrink to topgo to card 4end mouseUp</script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>293</left>
<top>325</top>
<right>362</right>
<bottom>339</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>WAS CW</name>
<script>on mouseUp-- put the short name of me into theCardvisual effect shrink to topgo to card 5end mouseUp</script>
</part>
<part>
<id>16</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>455</left>
<top>0</top>
<right>512</right>
<bottom>16</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>index</name>
<script>on mouseUpif the lockText of me is true thenset the lockText of me to falseend ifend mouseUp</script>
</part>
<part>
<id>21</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>62</top>
<right>505</right>
<bottom>296</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>QSL List</name>
<script>-- © WU2Z Keith Sproul, September 1991-- K United States NA 06+ 03+ C C C C C C C-- 123456789 123456789 123456789 123456789 123456789on mouseDownselect the clickLinewait until the mouse is upif the mouseloc is not within the rect of me thenselect emptyexit mouseDownend ifif optionKey() is up then-- put the clickLine into the msg boxput word 2 of the clickLine into theLineNoput the selectedText into theLineput char 1 to 24 of theLine into theCoask "Which Band ?"put it into theBandif it is "" then exit mouseDown-- 123456789 123456789 123456789 123456789 123456789 123456789?-- Country Prefix 10 12 15 17 20 30 40 80 160put 0 into bandPosput 39 into cNumif theBand = 6 then put cNum into bandPos -- 6 mtrsif theBand = 50 then put cNum into bandPos -- 50 mhzadd 4 to cNumif theBand = 10 then put cNum into bandPos -- 10 mtrsif theBand = 28 then put cNum into bandPos -- 28 mhzadd 4 to cNumif theBand = 12 then put cNum into bandPos -- 12 mtrsif theBand = 24 then put cNum into bandPos -- 24 mhzadd 4 to cNumif theBand = 15 then put cNum into bandPos -- 15 mtrsif theBand = 21 then put cNum into bandPos -- 21 mhzadd 4 to cNumif theBand = 17 then put cNum into bandPos -- 17 mtrsif theBand = 18 then put cNum into bandPos -- 18 mhzadd 4 to cNumif theBand = 20 then put cNum into bandPos -- 20 mtrsif theBand = 14 then put cNum into bandPos -- 14 mhzadd 4 to cNumif theBand = 30 then put cNum into bandPos -- 30 mtrs 10 mhzadd 4 to cNumif theBand = 40 then put cNum into bandPos -- 40 mtrsif theBand = 07 then put cNum into bandPos -- 7 mhzadd 4 to cNumif theBand = 80 then put cNum into bandPos -- 80 mtrsif theBand = 03 then put cNum into bandPos -- 3 mhzadd 4 to cNumif theBand = 160 then put cNum into bandPos -- 160 mtrsadd 4 to cNumput cNum into allPosif bandPos = 0 thenanswer "Invalid Band" with "Continue"exit mouseDownend ifanswer theCo with "Worked", "Confirmed" or "Cancel"if it is "Cancel" thenexit mouseDownend ifif it is "Worked" then put "W" into WCif it is "Confirmed" then put "C" into WCif WC ≠ "" thenrepeat while length(theLine) < 80put theLine & " " into theLineend repeatput WC into char bandPos of theLineif WC = "C" then put WC into char allPos of theLineif char allPos of theLine ≠ "C" and WC = "W" then put WC into char allPos of theLine-- put theLine into the msg boxput theLine into line theLineNo of meset the hilite of bg btn "Needs Updating" to trueselect line theLineNo of meend ifend ifend mouseDown</script>
</part>
<part>
<id>22</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>48</top>
<right>506</right>
<bottom>63</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Header</name>
<script></script>
</part>
<part>
<id>23</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>297</top>
<right>79</right>
<bottom>319</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Locked</name>
<script>on mouseUpif the LockText of bg fld "QSL List" is true thenset the LockText of bg fld "QSL List" to false-- set the LockText of bg fld "ELEVATOR LABEL" to falseset the LockText of bg fld "Header" to false-- set the LockText of bg fld "Award Type" to falseset the highlight of me to falseelseset the LockText of bg fld "QSL List" to true-- set the LockText of bg fld "ELEVATOR LABEL" to TRUEset the LockText of bg fld "Header" to TRUE-- set the LockText of bg fld "Award Type" to TRUEset the highlight of me to trueend ifend mouseUp</script>
</part>
<part>
<id>24</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>80</left>
<top>297</top>
<right>204</right>
<bottom>319</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Needs Updating</name>
<script></script>
</part>
<part>
<id>25</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>227</left>
<top>297</top>
<right>352</right>
<bottom>319</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Update Counts</name>
<script>-- © WU2Z, Keith Sproul, October 1991-- b variables are Band-- c variables are Confirmed-- w variables are Workedon mouseUpput 0 into w0put 0 into w1put 0 into w2put 0 into w3put 0 into w4put 0 into w5put 0 into w6put 0 into w7put 0 into w8put 0 into w9put 0 into wAput 0 into c0put 0 into c1put 0 into c2put 0 into c3put 0 into c4put 0 into c5put 0 into c6put 0 into c7put 0 into c8put 0 into c9put 0 into cA-- "123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789-- "Pref Country CT ITU CQ 6 10 12 15 17 20 30 40 80 160 ALL-- Country Prefix 6 10 12 15 17 20 30 40 80 160 ALLput "Worked " into wLineput "Confirmed " into cLineput 0 into iput "" into endFlagrepeat while endFlag ≠ "<end>"add 1 to i-- set the cursor to busyselect line i of bg fld "QSL List"put line i of bg fld "QSL List" into theLineput char 1 to 5 of theLine into endFlagput 39 into cNumif length(theLine) > cNum then -- !!put char cNum of theLine into b0add 4 to cNumput char cNum of theLine into b1add 4 to cNumput char cNum of theLine into b2add 4 to cNumput char cNum of theLine into b3add 4 to cNumput char cNum of theLine into b4add 4 to cNumput char cNum of theLine into b5add 4 to cNumput char cNum of theLine into b6add 4 to cNumput char cNum of theLine into b7add 4 to cNumput char cNum of theLine into b8add 4 to cNumput char cNum of theLine into b9add 4 to cNumput char cNum of theLine into bAif b0 = "W" then add 1 to W0if b0 = "C" then add 1 to C0if b1 = "W" then add 1 to W1if b1 = "C" then add 1 to C1if b2 = "W" then add 1 to W2if b2 = "C" then add 1 to C2if b3 = "W" then add 1 to W3if b3 = "C" thenadd 1 to C3end ifif b4 = "W" then add 1 to W4if b4 = "C" then add 1 to C4if b5 = "W" then add 1 to W5if b5 = "C" then add 1 to C5if b6 = "W" then add 1 to W6if b6 = "C" then add 1 to C6if b7 = "W" then add 1 to W7if b7 = "C" then add 1 to C7if b8 = "W" then add 1 to W8if b8 = "C" then add 1 to C8if b9 = "W" then add 1 to W9if b9 = "C" then add 1 to C9if bA = "W" then add 1 to WAif bA = "C" then add 1 to CA-- put " " into s-- set numberformat to "0"-- put C0 & s & C1 & s & C2 & s & C3 & s & C4 & s & C5 & s & C6 & s & C7 & s & C8 & s & C9 & s & CA into the msg boxend if -- !!end repeatif w0=0 then put "-" into w0if w1=0 then put "-" into w1if w2=0 then put "-" into w2if w3=0 then put "-" into w3if w4=0 then put "-" into w4if w5=0 then put "-" into w5if w6=0 then put "-" into w6if w7=0 then put "-" into w7if w8=0 then put "-" into w8if w9=0 then put "-" into w9if c0=0 then put "-" into c0if c1=0 then put "-" into c1if c2=0 then put "-" into c2if c3=0 then put "-" into c3if c4=0 then put "-" into c4if c5=0 then put "-" into c5if c6=0 then put "-" into c6if c7=0 then put "-" into c7if c8=0 then put "-" into c8if c9=0 then put "-" into c9put 39 into cNumput w0 into char cNum to cNum+3 of wLineadd 4 to cNumput w1 into char cNum to cNum+3 of wLineadd 4 to cNumput w2 into char cNum to cNum+3 of wLineadd 4 to cNumput w3 into char cNum to cNum+3 of wLineadd 4 to cNumput w4 into char cNum to cNum+3 of wLineadd 4 to cNumput w5 into char cNum to cNum+3 of wLineadd 4 to cNumput w6 into char cNum to cNum+3 of wLineadd 4 to cNumput w7 into char cNum to cNum+3 of wLineadd 4 to cNumput w8 into char cNum to cNum+3 of wLineadd 4 to cNumput w9 into char cNum to cNum+3 of wLineadd 4 to cNumput wA into char cNum to cNum+3 of wLineput 39 into cNumput c0 into char cNum to cNum+3 of cLineadd 4 to cNumput c1 into char cNum to cNum+3 of cLineadd 4 to cNumput c2 into char cNum to cNum+3 of cLineadd 4 to cNumput c3 into char cNum to cNum+3 of cLineadd 4 to cNumput c4 into char cNum to cNum+3 of cLineadd 4 to cNumput c5 into char cNum to cNum+3 of cLineadd 4 to cNumput c6 into char cNum to cNum+3 of cLineadd 4 to cNumput c7 into char cNum to cNum+3 of cLineadd 4 to cNumput c8 into char cNum to cNum+3 of cLineadd 4 to cNumput c9 into char cNum to cNum+3 of cLineadd 4 to cNumput cA into char cNum to cNum+3 of cLineput return & wLine & return & cLine after bg fld "QSL List"put return & "Last Updated: " & the long date after bg fld "QSL List"put " Maximum Possible: " & i -1 after bg fld "QSL List"beepset the hilite of bg btn "Needs Updating" to falseselect last line of bg fld "QSL List"end mouseUp</script>
</part>
<part>
<id>26</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>354</left>
<top>297</top>
<right>454</right>
<bottom>319</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Delete Data</name>
<script>-- © WU2Z, Keith Sproul December 1991on mouseUpanswer "Delete the Data, Are you sure?" with "Yes" or "No"if it is "Yes" thenselect text in bg fld "QSL List"doMenu "Copy Text"put "" into theEndFlagput 0 into irepeat while theEndFlag ≠ "<end>"add 1 to iselect line i of bg fld "QSL List"put line i of bg fld "QSL List" into theLineput char 1 to 5 of theLine into theEndFlagput char 1 to 36 of theLine into theNewLineput theNewLine into line i of bg fld "QSL List"end repeatbeepend ifend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>8</id>
<text>© 1991,1993 WU2Z Keith Sproul</text>
</content>
<content>
<layer>background</layer>
<id>22</id>
<text>Pref Country CT ITU CQ 6 10 12 15 17 20 30 40 80 160 ALL</text>
